Dim valueInfo As PEValueInfo
Dim info As PEParameterFieldInfo
info.StructSize = PE_SIZEOF_PARAMETER_FIELD_INFO
valueInfo.StructSize = PE_SIZEOF_VALUE_INFO
If PEGetNthParameterField(job, 0, info.ValueType, info.DefaultValueSet, info.CurrentValueSet, info.Name, info.Prompt, info.DefaultValue, info.CurrentValue) = 0 Then
getError
Else
If (PEConvertPFInfoToVInfo(info.DefaultValue, info.valueType, valueInfo) = 0 Then
getError
Else
'if parameter 0 was type... Then value is now in...
'Number info.viNumber
'Currency info.viCurrency
'Boolean info.viBoolean
'String info.viString
'Date info.viDate[0] = year
' info.viData[1] = month
' info.viDate[2] = day
'
End If
End If
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |